SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Proc [dbo].[SP_TTINTE_CNTB_I10]   
/*---------------------------------------------------------------------*/  
/*----- Empresa          : OFISIS S.A.                            -----*/  
/*----- Cliente          : OFISIS S.A.                            -----*/  
/*----- Sistema          : Contabilidad                           -----*/  
/*----- Modulo           : Empresa                                -----*/  
/*----- Programa         : GRABA ARCHIVO TEXTO                           -----*/  
/*----- Nombre           : SP_TTINTE_CNTB_I10                   -----*/  
/*----- Script           : TTINTE_CNTB                            -----*/  
/*----- Desarrollado     : PERCY GARCIA                 -----*/  
/*----- Fecha            : 13/05/2008                             -----*/  
/*----- Base de Datos    : MS SQL Server                          -----*/  
/*----- Version BD       : 6.5                                    -----*/  
/*----- Invoca a SP      :                                        -----*/  
/*---------------------------------------------------------------------*/  
/*---------------------------------------------------------------------*/  
/*----- Modificado 1 por :  PDGV                         -----*/  
/*----- Fecha Modifica   :  13/08/2008                          -----*/  
/*----- Detalle Modifica :  redondea a 2 digitos los importes origen y contable  -----*/  
/*---------------------------------------------------------------------*/  
/*---------------------------------------------------------------------*/  
/*----- Comentarios      :                                        -----*/  
/*---------------------------------------------------------------------*/  
/*---------------------------------------------------------------------*/  
/*----- Drop Proc SP_TTINTE_CNTB_I10                              -----*/  
/*----- Grant Execute On SP_TTINTE_CNTB_I10 To PUBLIC             -----*/  
/*----- SP_TTINTE_CNTB_I10                                        -----*/  
/*---------------------------------------------------------------------*/  
@ISCO_EMPR TD_VC_002

As  
Begin Transaction SP_TTINTE_CNTB_I10  
Declare  
@VNNU_PROC Int 


Select @VNNU_PROC = ISNULL(MAX(NU_PROC),0) + 1
From TTPROC_INTE
Where CO_EMPR = @ISCO_EMPR


Insert Into TTINTE_CNTB
(CO_EMPR,NU_CNTB_EMPR,CO_UNID_CNTB,CO_OPRC_CNTB,NU_ANNO,NU_MESE,NU_ASTO,NU_SECU,FE_ASTO_CNTB,
CO_CNTA_EMPR,TI_AUXI_EMPR,CO_AUXI_EMPR,TI_DOCU,NU_DOCU,FE_DOCU,FE_DOCU_VENC,TI_CAMB,CO_MONE,
FA_CAMB,FA_CAMB_DIAR,TI_OPER,IM_MVTO_ORIG,IM_MVTO_CNTB,DE_GLOS,TI_DOCU_REFE,NU_DOCU_REFE,
FE_DOCU_REFE,NO_GIRA,FE_ENTR_CHEQ,FE_PROG_CHEQ,CO_ORDE_SERV,SI_MVTO_CNTB,CO_UNID_ORIG,CO_OPRC_ORIG,
NU_ASTO_ORIG,ST_OTRS,NU_PROC,NU_PROC_SECU,ST_IMPR_CHEQ,ST_FLAG,CO_USUA_MODI,FE_USUA_MODI,CO_USUA_CREA,FE_USUA_CREA)
Select 
CO_EMPR,NU_CNTB_EMPR,CO_UNID_CNTB,CO_OPRC_CNTB,NU_ANNO,NU_MESE,NU_ASTO,NU_SECU,FE_ASTO_CNTB,
CO_CNTA_EMPR,TI_AUXI_EMPR,CO_AUXI_EMPR,TI_DOCU,NU_DOCU,FE_DOCU,FE_DOCU_VENC,TI_CAMB,CO_MONE,
FA_CAMB,FA_CAMB_DIAR,TI_OPER,Round(IM_MVTO_ORIG,2),Round(IM_MVTO_CNTB,2),DE_GLOS,TI_DOCU_REFE,NU_DOCU_REFE,
FE_DOCU_REFE,NO_GIRA,FE_ENTR_CHEQ,FE_PROG_CHEQ,CO_ORDE_SERV,SI_MVTO_CNTB,CO_UNID_ORIG,CO_OPRC_ORIG,
NU_ASTO_ORIG,ST_OTRS,@VNNU_PROC,NU_PROC_SECU,ST_IMPR_CHEQ,ST_FLAG,CO_USUA_MODI,FE_USUA_MODI,CO_USUA_CREA,FE_USUA_CREA
From #TWINTE_CNTB_EPBQ

 If @@ERROR <> 0  
   Begin   
     Rollback Transaction SP_TTINTE_CNTB_I10 
     Return  
   End  


Insert Into TTPROC_INTE (CO_EMPR, NU_PROC, CO_SIST, NO_RESP, FE_INIC, FE_FINA, ST_PROC, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI )
Select Top 1 CO_EMPR, @VNNU_PROC, CO_SIST, NO_RESP, FE_INIC, FE_FINA, ST_PROC, CO_USUA_CREA, FE_USUA_CREA, CO_USUA_MODI, FE_USUA_MODI
From #TTPROC_INTE_EPBQ

 If @@ERROR <> 0  
   Begin   
     Rollback Transaction SP_TTINTE_CNTB_I10 
     Return  
   End  

Commit Transaction  SP_TTINTE_CNTB_I10

Select @VNNU_PROC  
Return  
/*------------------------------- Fin --------------------------------------------*/  




GO
